GEOMAS 


DECUS Program Library Write-up DECUS NO. 8-638 

ABSTRACT 

The program GEOMAS developed for the SEAMAP program of the 
University of Puerto Rico, calculates 

(i) Great circle distance between two oceanographic stations 

(ii) The mean latitude between the stations 

(iii) The coriolis parameter for the mean latitude 

(iv) Geostrophic velocities relative to a depth chosen by the 
operator or to the greatest depth common to both stations 

(v) Geostrophic volume transports between given depths (by 
trapezoidal interpolation) and the total transport between 
the surface and the reference depth. 

A description of the format and manner in which the input 
depths and dynamic heights are entered, is contained on comment 
cards in the program. 
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DIXENS £ ON 6(33) , f)IF( 33),D1 ( 33), D2( 30 ) , : J ( 30 ) , V ELC 33) 

00 01 3 K=2,33 

iCAD ( 1,223) £(*> 

l F( £( !<> ) ) ), 1 33,61 3 

CONTINJE 

DO.612 X=1,33 

DI F ( K ) = 3 • 

v£L(K)=3. 

01 (X)=3. 

D 2 ( : 0 -■) » 

v(K) = 3 . 

CONTINUE 
FOHXAi'C F4.3) 

DEHx'Hj NO in HEAD IN. SfAHi'INC i'O HEAD FI Hi i' STATION. 

i E A1) (1,1) 3 i' A1 , X A , i A 

IFCaA) 133,224,224 
DO 26 N = 2,33 
HEAD (1,33) |)1 (N) 

I F( l.) 1 (N) ) 27, 27,26 

L On 1 I .w 0 f?, 

HEAD (1,1) SIA2,H9,CB 
DC 23 N*2,33 
HEAD (1,23) D2(N) 

I F( 03(N) ) 34 3, 345,25 

FOHMAT(A4,2F4.2) 

FONKA l‘( F4 • 3 ) 

CON f I N-'JE 

E(1 )= 3 « 

HE=N-1 
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OUTPUT 


R FORT 

**,, <MAS.FT/G 


0050 

0100 

0150 

0200 


0250 

0300 

0350 


0400 

0450 

0500 


-123 


Reading in depth data 


Signal that all depths are in 


© 


262117676698 

0288 

0499 

0652 

0767 

0861 

0945 

1023 

1096 

1164 

1228 


READING IN FIRST STATION 

Reading in station number, latitude and longitude 


Reading in dynamic heights 


0000 


Signal that all dynamic heights are in 
READING IN SECOND STATION 


26291 1336700 Reading in station number, latitude and longitude 
,0224 y 

0369 
0466 
0543 
0603 
0657 
0712 
0764 


Reading dynamic heights 


0000 


Signal to start work 








OUTPUT 


DISTANCE BETWEEN 2621 AND 2629 70.57 KILOMETERS 

MEAN LATITUDE = 14.50 

MAXIMUM DEPTH IS AT STATION 2629 AND IS 400. METERS 

DYNAMIC HEIGHT DIFFERENCE BETWEEN STATION 2621 

AND STA. 2629 IS 0.332 DYNAMIC METERS AT 400. METERS 


DEPTH 

VOLUME TRANSPORT 

VELOCITY 

Z 

ABOVE Z 

AT Z 

0. 

0.00 

13.0 

50. 

4.11 

10.5 

100. 

7.33 

7.9 

150. 

9.71 

5.7 

200. 

11.45 

4.2 

250. 

12.69 

2.9 

300. 

13.50 

1.7 

350. 

13.95 

0.8 

400. 

14.09 

0.0 

METERS 

MEGATONS/SEC 

CM/SEC 


Now either return to @ to process more work, or type 


VOLUME TRANSPORT 
Z2-Z1 

4.11 

3.22 

2.38 

1.74 

1.25 

0.81 

0.45 

0.14 

MAGATONS/SEC 


EXIT-1 


to terminate. 
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ATTENTION 

This is a USER program. Other than requiring that it conform to submittal and review standards, 
no quality control has been imposed upon this program by DECUS. 

The DECUS Program Library is a clearing house only; it does not generate or test programs. No 
warranty, express or implied, is made by the contributor. Digital Equipment Computer Users 
Society or Digital Equipment Corporation as to the accuracy or functioning of the program or 
related material, and no responsibility is assumed by these parties in connection therewith. 
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